home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side3.d64 / meister basic (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  14KB  |  400 lines
  1. 99 rem@ s 1024
  2. 110 poke56,112:clr:poke650,128:d=rnd(-ti)
  3. 120 d=8:mb=32768:box=mb+3:ip=mb+198:ce=mb+78:br=mb+99:at=mb+75:gw=mb+51
  4. 125 parameters=828:ph=int(pa/256):pl=par-256*ph
  5. 126 ft=120*256:fh=int(ft/256):fl=ft-256*fh
  6. 130 fr=mb+6:sh=mb+96:dimc(7),t%(128,1),tr%(74),se%(75):l1=15:l2=12
  7. 140 c(0)=15:c(1)=13:c(2)=7:c(3)=3:c(4)=14:c(5)=4:c(6)=10:c(7)=8
  8. 145 fori=0to126:readt%(i,0),t%(i,1)
  9. 146 ift%(i,0)>60thent%(i,0)=0
  10. 147 ift%(i,1)>60thent%(i,1)=0
  11. 148 next
  12. 160 print"([195]) 1997 by [202]&[198] [208]ublishing":gosub6690:print""
  13. 165 print"([195]) 1997 by [202]&[198] [208]ublishing"
  14. 170 t$="[196][201][210][197][195][212][207][205][197][201][211][212][197][210] [201][201][201]"
  15. 180 gosub930
  16. 190 ifd>7thent$=t$+" - [196]evice:"+str$(d)
  17. 200 a$(01)="[211]elect [196]evice [206]umber  (#)"
  18. 210 a$(02)="[194]atch [210][197][206][193][205][197] [198]iles    (r)"
  19. 220 a$(03)="[194]atch [196][197][204][197][212][197] [198]iles    (d)"
  20. 230 a$(04)="[194]atch [208]refix [206]ames    (p)"
  21. 240 a$(05)="[194]atch [196]e-[208]refix [206]ames ([208])"
  22. 260 a$(06)="[197]dit [196]irectory        (e)"
  23. 270 a$(07)="[211]end [196]isk [195]ommand     (@)"
  24. 280 a$(08)="[212][210][193][195][197] [198]ile [204]inks      (t)"
  25. 290 a$(09)="[198][204][213][211][200] [196][197][204] [198]iles       (f)"
  26. 300 a$(08)="[210]eturn to [204][207][193][196][211][212][193][210]    (q)"
  27. 310 hotkey$=chr$(255)+"#rdp[208]e@q"
  28. 320 ni=8:gosub5000:f%=it:gosub930
  29. 330 iff%=12thengosub930
  30. 340 onf%gosub350,490,600,680,780,6000,9500,1080:goto170
  31. 350 ni=1:forx=8to29
  32. 360 ifx<>14thenopen2,x,2:close2
  33. 370 ifst=0thena$(ni)="("+mid$(str$(ni),2)+") [196]rive "+str$(x):ni=ni+1
  34. 380 next:a$(ni)="([209]) [196]on't change drive "
  35. 385 hot$="1234567":hot$=chr$(255)+left$(hot$,ni-1)+"q"
  36. 390 t$="[211][197][210][201][193][204] [196][197][214][201][195][197] [205][197][206][213]":gosub5000:ifit=nithenreturn
  37. 400 d=val(mid$(a$(f%),10)):return
  38. 490 mode=1:a$="[194]atch [210]ename":gosub2000:gosub1030
  39. 500 ch=0:a$="[208]rocessing...":gosub910
  40. 510 forjj=0tofiles-1:item=jj:gosub3500:iff%=0then580
  41. 520 f$=w$:ch=ch+1
  42. 530 x1=2:x2=37:y1=22:y2=22:sc=32:bc=7:gosub2200:poke199,0:poke646,3
  43. 540 x=2:y=22:gosub2300:printf$" = ";:tx=1:cu=4:limit=16:gosub2500
  44. 550 ifw$=f$then580
  45. 555 ifw$=""then580
  46. 560 close15:open15,d,15,"r0:"+w$+"="+f$:gosub1070:ifval(e$)=0then580
  47. 570 a$=c$+"! [211]kip/[210]etry/[209]uit":k$="srq":gosub920:onf%goto580,520,590
  48. 580 next:ifchthengosub2100
  49. 585 return
  50. 590 i=files:goto580
  51. 600 a$="[194]atch [196]elete":gosub2000:mode=1:gosub1030
  52. 610 ch=0:a$="[193]re you sure? ([217]/[206])":k$="yn":gosub920:iff%=2thenreturn
  53. 620 a$="[208]rocessing...":gosub910
  54. 630 forjj=0tofiles-1:it=jj:gosub3500:iff%=0then660
  55. 640 ch=ch+1:close15:open15,d,15,"s0:"+w$:gosub1070:ifval(e$)=1then660
  56. 650 a$=c$+"! [211]kip/[210]etry/[209]uit":k$="srq":gosub920:onf%goto660,640,670
  57. 660 next:ifchthengosub2100
  58. 665 return
  59. 670 i=files:goto660
  60. 680 ch=0:a$="[194]atch [208]refix":gosub2000:mode=1:gosub1030
  61. 690 x1=2:x2=37:y1=22:y2=22:sc=32:bc=7:gosub2200:poke199,0:poke646,3
  62. 700 x=4:y=22:gosub2300:print"[208]refix: ";:te=1:cu=4:li=15:w$="":gosub2500
  63. 705 ifw$=""thenreturn
  64. 710 p$=w$:a$="[208]rocessing...":gosub910
  65. 720 forjj=0tofiles-1:it=jj:gosub3500:iff%=0then760
  66. 730 f$=w$:ch=ch+1
  67. 740 close15:open15,d,15,"r0:"+p$+w$+"="+f$:gosub1070:ifval(e$)=0then760
  68. 750 a$=c$+"! [211]kip/[210]etry/[209]uit":k$="srq":gosub920:onf%goto760,740,770
  69. 760 next:ifchthengosub2100
  70. 765 return
  71. 770 i=files:goto760
  72. 780 ch=0:a$="[194]atch [196]e-[208]refix":gosub2000:mode=1:gosub1030
  73. 790 x1=2:x2=37:y1=22:y2=22:sc=32:bc=7:gosub2200:poke199,0:poke646,3
  74. 800 x=3:y=22:gosub2300:print"[210]emove prefix: ";
  75. 805 w$="":te=1:cu=4:li=15:gosub2500:ifw$=""thenreturn
  76. 810 p$=w$:a$="[208]rocessing...":gosub910
  77. 820 forjj=0tofiles-1:it=jj:gosub3500:iff%=0then880
  78. 830 f$=w$:ch=ch+1
  79. 840 ifleft$(f$,len(p$))<>p$then880
  80. 850 dp$=mid$(f$,len(p$)+1)
  81. 860 close15:open15,d,15,"r0:"+dp$+"="+f$:gosub1070:ifval(e$)=0then880
  82. 870 a$=c$+"! [211]kip/[210]etry/[209]uit":k$="srq":gosub920:onf%goto880,840,890
  83. 880 next:ifchthengosub2100
  84. 885 return
  85. 890 i=files:goto880
  86. 900 stop
  87. 910 x1=2:x2=37:y1=22:y2=22:sc=160:bc=7:gosub2200:poke199,1:poke646,7
  88. 915 poke211,20-(len(a$)/2):poke214,22:sys58732:printa$:return
  89. 920 gosub910:gosub3100:return
  90. 930 t=t%(tc,0):c=95:gosub2900:cc=cc+1:ifcc>6thencc=0
  91. 935 l1=c(cc):l2=c(cc+1)
  92. 940 t=t%(tc,1):c=105:gosub2900:c1=95:c2=95:c=l1:gosub3000
  93. 945 tc=tc+1:iftc=127thentc=0
  94. 950 a=105:b=105:c=l2:gosub3600
  95. 955 a=95:b=95:c=l1:gosub3600
  96. 960 return
  97. 970 stop
  98. 980 sysip,t$,7,a$,b$,c$,d$,e$,f$,g$,l$:gosub930:so=f%
  99. 990 iff%=7thenreturn
  100. 1020 rem get regular dir from selected divice
  101. 1030 a$="[199]etting directory...":gosub910
  102. 1040 di$="$:*":loc=40960:gosub3300:files=f%
  103. 1045 x1=3:x2=33:y1=8:y2=20:gosub2800:x1=4:x2=35:y1=5:y2=19:fc=7:gosub2600
  104. 1050 a$="[195][210][211][210]/[210][197][212][213][210][206] to [211]elect"
  105. 1052 ifmodethena$="[210][197][212][213][210][206] add file   +- page    [198]1 done
  106. 1055 [139]mode[178]2[167]a$[178]"(NULL)hen done viewing, asc1 exits"
  107. 1060 [141]910:x[178]5:y1[178]6:y2[178]18:mr[178]0:mc[178]3:mh[178]13:ms[178]1:[141]3400:[142]
  108. 1070 [132]15,b$,c$,d$,e$:e$[178]b$[170]","[170]c$[170]","[170]d$[170]","[170]e$:[142]
  109. 1080 [141]6710:[129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  110. 1090 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]1110
  111. 1100 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  112. 1110 a$[178]"presenter":[141]1120:a$[178]"hello connect"
  113. 1120 [129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  114. 1130 [160]2:[159]2,i,2:[160]2:[139]st[167]1150
  115. 1140 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]1170
  116. 1150 [130]:[139]a$[178]"presenter"[167][142]
  117. 1160 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  118. 1170 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  119. 1180 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  120. 1190 [153]"p(NULL)53272,23:run:":[151]631,13:[151]632,13:[151]198,2:[128]
  121. 2000 x1[178]4:x2[178]35:y1[178]3:y2[178]3:sc[178]160:bc[178]7:[141]2200:[153]"sys";
  122. 2010 [151]214,3:[151]211,20[171]([195](a$)[173]2):[158]58732:[153]a$:[142]
  123. 2100 x1[178]0:x2[178]39:y1[178]0:y2[178]24:sc[178]255:bc[178]15:[141]2200
  124. 2110 a$[178]"(NULL)eview lenhanged str$irectory":[141]2000:mode[178]2:[141]1030:[142]
  125. 2199 [143] box
  126. 2200 [151]parms,x1:[151]parms[170]1,x2:[151]parms[170]2,y1:[151]parms[170]3,y2:[151]parms[170]4,sc
  127. 2210 [151]parms[170]5,bc:[151]781,pl:[151]782,ph:[158]mb[170]105:[142]
  128. 2299 [143] move cursor
  129. 2300 [151]211,x:[151]214,y:[158]58732:[142]
  130. 2499 [143] getword
  131. 2500 [151]pa,tx:[151]pa[170]1,curs:[151]pa[170]2,limit:[151]pa[170]3,[195](w$)
  132. 2510 [129]i[178]1[164][195](w$)
  133. 2520 [151]par[170]3[170]i,[198]([202](w$,i,1)[170][199](0)):[130]:[151]pa[170]3[170]i,0
  134. 2530 [151]781,pl:[151]782,ph:[158]mb[170]150:w$[178]"":gl[178][194](780):[139]gl[178]0[167]:[142]
  135. 2540 n[178][194](782)[172]256[170][194](781):[129]i[178]1[164]gl:w$[178]w$[170][199]([194](n[171]1[170]i)):[130]
  136. 2550 [142]
  137. 2599 [143] frame
  138. 2600 [151]parms,x1:[151]parms[170]1,x2:[151]parms[170]2,y1:[151]parms[170]3,y2:[151]parms[170]4,fc
  139. 2610 [151]781,pl:[151]782,ph:[158]mb[170]108:[142]
  140. 2699 [143] lattice
  141. 2700 [151]parms,x1:[151]parms[170]1,x2:[151]parms[170]2,y1:[151]parms[170]3,y2:[151]parms[170]4,s1
  142. 2710 [151]pa[170]5,s2:[151]pa[170]6,c1:[151]pa[170]7,c2:[151]781,pl:[151]782,ph:[158]mb[170]102:[142]
  143. 2799 [143] shade
  144. 2800 [151]parms,x1:[151]parms[170]1,x2:[151]parms[170]2,y1:[151]parms[170]3,y2
  145. 2810 [151]781,pl:[151]782,ph:[158]mb[170]192:[142]
  146. 2899 [143] copy tile
  147. 2900 [151]pa,fl:[151]pa[170]1,fh:[151]pa[170]2,t:[151]pa[170]3,c
  148. 2910 [151]781,pl:[151]782,ph:[158]mb[170]111:[142]
  149. 2999 [143] char swap
  150. 3000 [151]parms,c1:[151]parms[170]1,c2:[151]parms[170]2,c
  151. 3010 [151]781,pl:[151]782,ph:[158]mb[170]186:[142]
  152. 3099 [143] brancher
  153. 3100 k$[178]k$[170][199](0):[129]i[178]1[164][195](k$):[151]pa[171]1[170]i,[198]([202](k$,i,1)):[130]
  154. 3105 [151]781,pl:[151]782,ph
  155. 3110 [158]mb[170]195:item[178][194](253)
  156. 3120 [142]
  157. 3199 [143] screen to menu
  158. 3200 [151]pa,y:[151]pa[170]1,x1:[151]pa[170]2,x2:[151]pa[170]3,mi:[151]pa[170]4,mc:[151]pa[170]5,mh
  159. 3205 [139][2